COLOUR 

GENIE 


AUCKLAND DISTRICT USER GROUP 


With a very low attendance at the last meeting. Due in part to people still away 
on holiday and some others who forgot the date of the meeting there is not a lot of news 
this time around, there is good news for those interested in disc drive systems on the 
back page.. However between here and there you will find a complete membership list 
which country members may find usefull for contacting other users in their area. 

Plus of course the usual bumper selection of very good and varied programs 
sent in by you the members. If you have sent in contributions to the magazine and they 
have not appeared yet don't worry lack of space and the large volume of submitions 
means some items are held back but your time will come. 

SO DON'T FORGET 
NEXT MEETING 


MONDAY 3rd MARCH 
7.30 pm 



LIST OF FINANCIAL COLOUR GENIE GROUP MEMBERS AS AT 10/12/85 


ADAMSON Brian, 16 Pembroke Gres , St Hel iers , Phone 557 261 
ADAMSON Rod, 24 Cheval Dr i ve , Gl enf ie Id , Phone 444 7451 
ADSHEAD FAMILY, 19 Trinidad St , Bl ockhouse Bay 678 450 
ALLAN John, 187 Weld Street , Blenhe im 

ALVREZ Fred, 2/5 Rutland Rd , Devonport , Phone 458 000 
ANDERSON G.R.,300 Gascoigne St, Hastings 

ARMSTRONG Ross , 2 / 1 3 2 Paihia Rd , One Tree Hill,Ph 598 724 

AUSTIN Des,Karaka North Rd , R . D . 1 , Papakur a 

AVIS Stephen, 12 Ruru Crescent , Put aruru , Phone 7750 

BALTUS Harry, C/- Box 3 64 , Ham i 1 ton , Phone 438 223 

BARKER Anne & family, 1 Carbery Pi ace , Manurewa , Ph 267 4833 

BARTULOVICH Nick R.,13 Hendry Ave , Hi 1 Isborough , Ph 656 734 

BATTERSBY Murray , Murrel len Piggeries , Raecombe Rd , Shef f ield 

Canterbury, NZ., Phone 726 Sheffield 
BEATTIE Andrew , 2 Takitimu Street , Whenuapa i 
BEVAN Dai, 30 Awa Rd , Mi r imar , Wei 1 ington 

BISHOP Chris, 6 Jenanne Place, Glenf ield , Phone 444 5301 

BLACKMORE Mark , R . D . 8 , Fr ankton 

BOREHAM Brian, 125 Weatherly Rd , Torbay 

BOUTEREY Dave, 16 Kakapo Pi ace , Papatoetoe , Ph 279 971 9 

BROOKE Richard, F7/214 Hastings St South , Hast ings 

BURROUGH Amos & Bess, 46 Kimberley Grove , Palmerston Nth 

BURROWES David, 23 Kaka St, Nelson 

BURTON Ron,P O Box 208, Te Aroha, Phone 625 Man 

BUTLER Bryan, 244 West Street , Grey town 

BYRNES Ces,31 Rosehill Dr i ve , Papakur a , Ph 298 4107 

CAIRNS Keith, Box 3 6 , Ngongot aha . 

CAMERON Richard, 107 Duke St , Invercargi 1 1 

CLARK Alistair, 36 Forbury Road, Dunedin 

CLARKE Allan, 47a Marsden St,Takapuna 9 , Ph : 491 292 

CLARKE Andrew, 36 Rhonda Ave , Hami 1 ton , Ph : 436 042 

COLLINS Dick, Box 3 0 1 , Par apar aumu , Phone 86431PRM 

COWEN Just in , Mi Ison Line, 5 R . D . , Fei Iding 

CRUMP S.J.,No. 6 R.D.,Gore 

DAVIES Scott , 2 15th Avenue , Tauranga , Phone 85 041 
DIX Keith, 21 Adel Pi ace , Weymouth , Phone 267 0434 
DOELL Stephen, 36 Victory Ave , Karor i , Wei 1 ington 
DOELL Ted, 11 Sandspit Road,Waiuku 

DONALDSON David, SO Woolf ield Rd , Papatoetoe , Ph 278 7598 
DUNNINGHAM Neville, 5 Kingswood Rd , Papatoetoe , Ph 278 3105 
DYER Ray, 5 Browne Street , Rawer au , Phone 6199 Rawer au 
EDWARDS Don, 10 Fairview Ave,Feilding 

ELISAK A.lex & Kevyn , 1 4 Awakino Place , Manurewa , Ph 266 7423 
ELLEY family, 40 Mary Dreaver St , Block . Bay , Ph 675 024 
FINDLAY Douglas P,42 Norway St , Aro Valley, Wgtn 
FISHER Peter , Mi 1 itary Police Schoo 1 , Trentham Camp 
FLOWER Shirley, 32 Fairview Ave , Fe i Iding , Ph : 35 374 

FOSTER Peter, P O Brx 382, Havelock North 
FOWLER Trevor, 249 Mchia Rd , Weymouth , Phone 266 5541 
GEBBIE George, 14 ’ Fl c^nshaw Rd . Te Atatu Sth , Ph 8 3 4 6 028 
GOLDIE Willie & Andrew, 24 Douglas Ave . Mt Albert, Ph 867 533 
GOODCHILD Andrew, 47 Tilbury Street, Lower Hutt 
GORDON Terry, 99 Reeves Rd , Pakuranga , Phone 566 564 
GREEN Gordon & family, 6 2 Rajkot Tee , Rhandal 1 ah , Wgn4 , 

GREEN Mike, 49 Astley Ave , New Lynn , Phone 873 120 
GRENFELL Douglas C,60 Churchill Ave , Manurewa , Ph . 267 7420 
GROVE Chris & family, 4 Salem Place, Torbay 
GRUSNING Neill, 48 Beatty Rd , Pukekohe , Phone 86 712 
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Country 


Student 


Country 


Overseas 


HABING Derk,268 Wicksteed St reet , Wanganu i 

HAMILL family^ 26 Ashlynne Ave , Papatoetoe , Phone 278 9585 
HARNESS Justin, 18 Wynyard Rd,Mt Eden, Phone 602 189 
HARRIS Bert & family, 15 Seakens Way, Glen Eden , Ph 818 4660 
HART Ron, 2.6 Puriri Court Fl ats , Denbigh St reet , Fe i 1 di ng 
HEAP family, 23 Leatham Crescent , Papakura , Ph 298 5550 
HEEZEN Peter , Dorpsc lijk 199, 3161 cc Rhoon ( SH ) , Hoi 1 and 
HIGHAM R.T.,2B Gaylands Pi ace , Papakura 

HILL Gerrard & family, 86 Wallace Rd , Papatoetoe , Ph . 278 3446 

HOLES Freda & family, 10 Rowan Terrace, Te Atatu Sth,Ph 83 45244 
HOLT Bernie,P.O. Box 23*-303 , Papatoetoe 

* HOYES Peter, 17 Luton Avenue , Pakuranga , Phone 565 536 

* HUGGINS Nola,612 Mt Albert Rd, Royal Oak, Phone 655 718 

HUNTER Kevin, 18 Elizabeth St,Feilding Country 

HYNDS Ken, 35 Caldwell Road , Woodbourne A . F ., Blenheim Country 

INNES James, 7 O ' Shannessey St , Papakura , Phone 298 7501 (work) 

JACK family, 26 Anzac Road , Pukekohe , Ph 85595 Puk. 

JONES family, 45 Park Terr ace , Blenheim 
JONES Murray, 6 Shearman Grove , Tauranga 
JOYCE Noel D.,196 Conon Street , Invercargi 1 1 
KANE Mrs Deidre,31 Momona Rd , Greenl ane , Phone 542 254 
^ KAY Ross, 2/9 Longreach Drive, Glen Eden , Phone 818 4818 
KELSALL Dean, 40 Gladstone Tee , Invercargi 1 1 
KEOGH Johnny, 49 Baylands Dr i ve , Newl ands , Wei 1 ington 
LAMBOURN,A P & family, 32 Mead St , Avondale , Phone 886 918 
LANGDON Mark, 6 Trias Road , Glenf ield , Phone 444 4247 
LEE- JOHNSON P. & family, 34 Adams St,Waihi 
LESTER Wayne, 12 Henry Street , Waikouai t i , Ph 757 547 
LEWIS John, 39 Hillcrest Ave, Rotorua 

LIDDEL family, 91 Taikata Rd , Te Atatu Nth, Phone 834 7129 
LOCKERBIE Claire & Roger, 63 Grampian Road , St Heliers,Ph 580 270 
LOCKETT John R.,C/- PNG Assoc Ind,Box 1394, 
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Boroko , Papua New Guinea 

LOVEGROVE Philip, 145 Carlisle Rd, Browns Bay,Ph 478 9761 
LOWE family, 4 Eden P 1 ace , Pukekohe , Ph 88-441 Pukekohe 
LOWER HUTT TAXATION SERVICE , At tent ion : G. Grimmett, 

PO Box 31186, Lower Hutt, Phone 660 849 
LYALL , R . G . , 7 8 Dimock St,Titahi Bay , Wei 1 ington 
McCREEDY Bert, 16 Walpole St , El lersl ie , Phone 597 308 
MacDONALD Iain, 3 Amy Street , El lersl ie , Phone 596 412 
McFARLANE Tom, 5 Balmore Place, Wattle Downs, 

Manurewa , Phone 278 2366 

McGILL Keith, 15 Manapeuri Place , Pakuranga , Phone 565 643 
MAINPRIZE family, Box 84, Public Hospital , Wairoa , Hawkes Bay 
MAGGS Philip, 21 Cheltenham Rd , Devonport , Phone 450 029 
MAHER Brendon,314 Levers Road , Tauranga 

MALLOCH Dianne, 44 Regent St , Papatoetoe , Phone 278 6041 
MANAWARU SCHOOL , R • D . 1 , Te Aroha,The Principal 
MANNING Simon A., 9 Ludlam Street , Featherston , Ph 89489 
MARRETT Trevor , Wai roa Dam , RD3 , Papakura , Phone 292 5818 
MAWBY David J,10 Gordon Tee, Gore 5000 
MELLARS Les,564 Beach Road , Rothesay Bay 

METCALFE El izabeth , 4 6B Croydon S t , Kar or i , Wgtn , Ph 764 654 
MILLAR Robert & family, 17 Onewa Rd , Northcot e , Ph 486 504 
MILLER Paul,C/- WO ’ s & SNCO ' s Mess, 

RN2AF Base , Wigram , Christchurch . 

MILLS Andrew, 59 Blackbeech St , Akararawa , Upper Hutt, 
MORPETH David, 10 Rawhitiroa Rd , Kohimar ama , Ph 587 774 
MULLEN Peter, 54 Park Road , Gl enf ield , Phone 444 9155 
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MUZYKA George, 33 Vermont St , Ponsonby , Ph : 789 176 

NICHOL Bryce, C/- FEPB, Private Bag , Pukekohe , Ph : 299 6203 

NOWILL Malcolm, 16 Field Regt , RNZA , Papakur a Camp 
PARES Mark, 3 Russell Crescent , Rotor ua 
PAUL David, 29 Fenton St reet , Papakur a , Ph 2780301 
PETERS Dave, 6 Tane Lane , Whakat ane 

PHILLIPSEN Herman, Box 4 09, Have lock Nth,Hawkes Bay 
PUKU Joe, 44 Walmsley Road,Otahuhu 

PULLAR Graeme, C/“ Satellite Stn, Private Bag , Warkwor th 
QUAIN family, 12 Wilkinson Way, Browns Bay 
RASMUSSEN Ian,lB Huber Street , Weymouth , Ph 267 7517 
RICHMOND Bob, 181 Browns Bay Rd, Browns Bay , Ph 478 4745 

RIGNEY Gene , Kaharoa Rd , R . D • 2 , Ngongotaha 
ROBINSON Ian, 4 Kingsley Street , Gisborne 
ROOTS Ernie, 512 Glenfield Rd , Glenf ield , Ph 444 9669 
ROYDS P.P*,10 Whitefield St,Kaiapoi 
* RUSSELL Andy, 98 Union Road , Howick , Ph 535 4006 
RUSSELL Bill, 25 Sturdee Road , Manurewa 
RYDER David, 23 Richmond Ave, Nelson 
SALT T.K.,92 Omapere St , Whitby , Wei 1 ington 
SAUNDERS Max, 96 Oriel Ave , Tawa , Wei 1 ington 
SCOTHERN Dave, 64 Princess Road , Taur anga 
SCOTT Ian, 9 Kanpur Rd , Khandal 1 ah , Wei 1 ington 
SEYB Bruce & family, 127 Cannongate St , Birkdale , Ph 439 746 
SIMPSON Ron, 25 Renata Cres,Te Atatu North, Ph 834 6987 
SKINNER Dominic, 6 Meadowcourt Dr i ve , Papatoetoe 
SMITH Barry, 23 Eliot St , New Plymouth 
SMITH Kevin, PO Box 9427 , Wei 1 ington , Phone 842 295 
SMITHER David, 28 Viewmont Dr ive , Harbour View, 

Lower Hutt , Wei 1 ington , Phone 661 645 
SPICK Ray & Raewyn , 1 1 Racecourse Parade , Avondale 
SPRATT Dave, 11 Ball Place, Mt Roski 1 1 , Phone 675 676 
STAMP Linton, P.O Box, Leigh 

STARKE Mrs L . M . , Urquharts Rd , Karaka , R * D • 1 . , Papakur a 
STEPHENS Frances & family, 35 Raurenga Ave, Royal Oak , Ph 654 
STRANAGHAN family, 29 Haseler Cres , Howick , Phone 535 7450 
TRUE Murray & Anne, 4/503 Oliphant Rd, Hastings 
TUAVERA Jeffery, 732 Sandringham Rd , Sandringham , Ph 693 986 
TURNER Andy, 28 Sunray Ave , Ti t irangi , Phone 817 6843 
VAIL Angus, 16 Greenwood Road , Have lock North 
van SITTER Henry , For est. Hill Rd , R . D . 1 , Henderson 
VERMUELEN Dick , Strathmore Rd , Reporoa 

WAITARA HIGH SCHOOL, Attn: Ron Ki vel 1 , Principal , Waitara 
WAKEFIELD family, 25 Sunhaven Dr ive , Newl ands , Wei 1 ington 4 
WALKER Barry & Irene, 20 Ellesmere Cres , Pa Imerston North 
WALKER David , Kiwi tea - No 7 R.D,Feilding 
WARD Chris, 31 Marsden Avenue , Mt Eden . Phone 686 338 
WAWMAN Don,5/53 Bellevue Rd , Kt Eden , Ph 797 440 X685(work) 
WESSELING Ralph, 112 Pt View Dr i ve , Papa toetoe , Ph 535 6134 
WHYTE Mrs K,32 Durham Street , Ngaruawahi a 
WILLIAMS Olwen,3/26A West End Rd , Herne Bay,Ph 761 954 
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* “Committee Members 


Total 


163 members 


10 CLS 

20 PRINTTAB(11)}’'W0RD SEARCH PUZZLE" 

30 REM; THIS VERSION IS DESIGNED FOR A PRINTER. 

40 REM: ADAPTED FROM DAVID H AHL ImORE BASIC COMPUTER GAMES’ 

41 REM: BY A.K.McGILL 
50 PRINT; PRINT: PRINT 
£0 PRINT 

70 PRINTiPRlNT 
80 CLEAR 3000 
90 TW»40 

100 INPUT "DO YOU WANT A PRINTOUT"; X» 
no INPUT-WIDTH" ;W;MD=W 
120 IF W*2<=TW THEN 140 

130 PRINT"THAT WILL NOT FIT IN ";TW;" COLUMNS": GOTO 110 
140 IF W<1 THEN 110 

150 INPUT"THE LENGTH ";L:IF L>W THEN riD=L 
160 IF L<1 THEN 150 

170 1NPUT"WHAT IS THE MAXIMUM NUMBER OF WORDS IN THE PUZZLE" ;M 
180 IF M>=2 THEN 200 

190 PR I NT "SORRY! - THERE MUST BE AT LEAST 2 WORDS": GOTO 170 
200 PRINT 

210 DIM A$(L,W)»W*(M) 

220 DIM W(M,3),DXY(8,2)fDDC30) 

230 PRINT"ENTER A HEADING FOR THE PUZZLE" 

240 PRINT" (";TW;" CHARACTERS MAXIMUM)" 

250 INPUT XY$ 

260 PR I NT "OK - ENTER A WORD AT EACH QUESTION MARK" 

270 PRINT"TO REDO THE PREVIOUS WORD, TYPE A HYPHEN" 

280 PR I NT "WHEN YOU RUN OUT OF WORDS, TYPE A STOP" 

290 FOR 1=1 TO M 

300 INPUT T*;IF T$="-" THEN 1=1-1 :PRINT"REDD ";W$(I "-.GOTO 300 
310 IF Ti="." THEN M=I-1;G0T0 500 

320 IF LEN(T$)=0 THEN PRINT" INPUT ERROR;REDO! "iBOTO 300 
330 J=1 

340 TEi=MID$(T*,J,l);IF TEi>="a" AND TE*<="z" THEN 410 
350 IF TE$<"A" OR TE$>"Z" THEN 370 

360 T$=LEFT$ ( T$ , J- 1) +CHR$ ( ASC (M I D$ (Ti , J , 1 ) ) +32 ) +R I GHTi ( T$ , LEN ( T* ) - J ) : GOTO 4 1 0 

370 IF TE$=T$ THEN T*="":GOTO 320 

380 IF J=LEN(T$) THEN T$=LEFT*(T*, J-1) ;GOTO 420 

390 IF J=1 THEN T*=RIGHT$(Tf,LEN(T$)-l): J=J-1:BOTO 410 

400 Ti=LEFTi ( Ti , J- 1 ) +R I GHT$ ( T$ , LEN ( T* ) - J ) : J= J- 1 

410 J=J+1;IF J<=LEN(Ti) THEN 340 

420 PRINT"-";T*;"-" 

430 IF LEN(T«)<=MD THEN 450 

440 PRINT"THAT'S TOO LONG, I’M AFRAID!";" TRY ANOTHER ONE ! " : GDT0300 
450 FOR IZ=1 TO I-1;IF W$(IZ)<>T$ THEN NEXT;GOTO 470 
460 PRINT" YOU’VE ENTERED THAT ALREADY! TRY ANOTHER" ; G0T0300 
470 W$(I)=T$ 

480 NEXT I 

490 PRINT"THAT’S IT! ";M;" WORDS!" 

500 PRINT"NOW LET ME PONDER THIS...." 

510 FOR 1=1 TO M-1 
520 FOR J=I+1 TO M 

530 IF LEN(W$(I))<LEN(Wi(J)) THEN HZ»=W»( I) : Wi( I )=W$( J) : W*( J)=HZ» 

540 NEXT: NEXT 

550 FOR 1=1 TO 8:READ DXY( I , 1 ) ,DXY(I, 2) zNEXT 

560 FOR 1=1 TO 28:READ DD<I):NEXT 

570 DATA 0,1, 1,1, 1,0,1, -1,0, -1,-1, -1,-1, 0,-1, 1 

580 DATA 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 1,3, 5, 7 
590 FOR 1=1 TO M 
600 LN=LEN(Wi(I)) 

610 NT=0 

620 SD=DD(RND(28)) 



630 SX*RND<W)tXl«SX+(LN-l)»DXY(SDf l)t irXKlOP X1>W THEN 620 
640 SY»RND(L):Xl*SY+(LN-l)»DXY<SDf2)i IF XKIOR X1>L THEN 620 
650 NTsNT4l;lF NT<>W«LT2 THEN 700 
660 PRINT "COULDN’T FIT »"}W$»I);"* IN THE PUZZLE " 

670 PRINT"DO YOU WANT HE TO START AGAIN?"; : INPUT A$ 

680 IF LEFTKA*, l)="y" THEN 590 
690 W$(I)«"":GOTO 780 
700 J=SY:K=SX 
710 FOR P»1 TO LN 

720 IF LEN(A*(J,K)) AND A$(J,K)<>MIDi(W*(I),P, 1) THEN 620 
730 J»J+DXY<SD,2):K«K+DXY(SD,1):NEXT P 
740 J=SYsK=SX 

750 FOR P=1 TO LN:A»(J,K)«MID»(Wi(I),P, 1) 

760 J=J+DXY(SD,2):K=K+DXY(SD,I):NEXT 

770 W(I,l)«SXsW(I,2)»SY:W(I,3)=SD 

780 NEXT I 

790 FOR 1=1 TO L 

800 FOR J=1 TO W 

810 IF A*(I,J)="" THENA*(I,J)=CHR»(RND(26)+96) 

820 NEXT! NEXT 

830 FOR 1=1 TO H-1:F0R J=I+1 TO M 

840 IF Wi<I)<=Wi(J) THEN 870 

850 HZ$=W$ ( I ) : W» ( I ) =W$ ( J ) : W* ( J ) =HZ» 

860 FOR K=1 TO 3: HZ«W(I,K):W(I,K)=W(J,K):W(JtK)=HZ:NEXT K 
870 NEXT J:NEXT I 

880 INPUT"HOW HANY COPIES DO YOU WANT"jN 

890 PRINT"FOR EACH COPY, HIT RETURN TO BEGIN PRINT" 

900 FOR C=1 TO NtGOSUB 910: NEXT: GOTO 1090 
910 INPUT A$:LPRINT 
920 T*(TW-2*W)/2:LPRINT 
930 LPRINT 

940 LPRINTTAB( (TW-LEN(XY$) ) /2) ; XYt 

950 LPRINT: LPRINT 

960 FOR J=1 TO L:LPRINTTAB(T){ 

970 FOR K=1 TO W: IF A*<J,K)="." THEN LPRINT". "5:G0T0 990 

980 LPRINTCHR$(ASC(A$(J,K))-32);" 

990 IF K=W THEN LPRINT 
1000 NEXT: NEXT 
1010 LPRINT; LPRINT 

1020 LPRINT"FIND ";H;"HIDI^N WORDS IN THE ABOVE PUZZLE" 

1030 LPRINT 

1040 FOR J=1 TO M;IF LEN<W*(J))=0 THEN 1070 
1050 IF P0S{0)+LEN<W*(J))>TW-2 THEN LF15INT 
1060 LPRINTW*(J), 

1070 NEXT; PRINT 
1080 RETURN 

1090 IF LEFT*(X$,1)="Y" OR LEFT*(X*, 1 )="y" THEN 1110 
1100 END 
1110 REM 

1120 FOR 1=1 TO L;FOR J=1 TO W;A*(I, J)=". ":NEXT J:NEXT I 
1130 FOR 1=1 TO M 

1140 LN=LEN(H»(I));J=W(I,2):K=W<I,1) 

1150 FOR P=l TO LN 

1160 A$(J,K)=HI0*(W$<I),P, 1) 

1170 J=J+DXY(W(I,3),2):K=K+DXY(W(1,3), 1):NEXT P 
1180 NEXT I 

1190 XY*="HERE IS THE ANSWER KEY:" 

1200 GOSUB 920 

1210 CLS;PRINT§520,“T0 INPUT ANOTHER PUZZLE, PRESS »Q’ " 

1220 Kt=INKEY*:IF K»="" THEN 1220 ELSE IF K*="0" THEN RUN ELSE END 
1230 END 

1240 Z= I NT i RND ( Z ) ) : RETURN 


2 CL 2 

JO CDLDUF.ll;PRINT’'THE9E ARE THE VOYAGES OF PRINT: PRINT "CAFTAIN PERDINAND N 
AGELLAN- : PRINT: C0L0UR15: PRINT''ADAFTED FOR GENIE by Ron H&rt..Oct 1985" 

15 CDL0UP7:PRINT: PRINT”PRESS A KE V ” : C ALL0049 
20 G0SUE2e70: ’ INITIALISE 
30 CLS: PRINT 
AO T=INT (RND (0)*3) 

50 WEEK=WEEK+1 
60 rD=lNT <FD-FEED*MN) 

70 IFFD<1THEN230 

30 IFRND(O) > . 7‘qTHENMN=MN-INT (RND <0)-«3) 

90 PRINT’'— ■>” 

100 IFT=OTHENPRINT"CAPTAIN MAGELLAN- ": PRINT : PR INT "PROGRESS OF THE ’V I C T 
0 R I A ’ “:PRINT:PRINT"WEEK "WEEK 

110 IFT=1THENPRINT"CAPTAIN MAGELLAN" : PRINT: FRINT"SH1P’ S LOG ": PRINT ; PRINT " WE 
EK "WEEK 

120 IFT=2THENPRINT"CAPTAIN MAGELLAN" : PRINT : PRINT " REPORT PRINT : PRINT " WEEK " 
WEEK 

130 IFPT=10RPT=PTHEN5A0 
140 MN=INT (ABS (MN) ) 

150 PRINT: PRINTTAB (8) ; YOU HAVE "NN"NEN *" 

160 IFMN< 10THENPRINT"THAT IS NOT ENOUGH TO" : PRINT: PRINT "SAIL THE VICTORIA, S 
0 WE MUST STAY HERE" : PRINTAE (8) 5 " IN " ; A$ ( PRT ) : 60T0640 

170 PRINT" •' 

180 T=INT(RND(0)*3.5) 

190 IFASTRO=OOR0UAD=OTHENPRINT"YOU DO NOT HAVE ANY INSTUMENTS" : PRINT: PRINT" 
TO NAVIGATE WITH !!!!!": PRINT: PRINT"THIS IS THE END G0SUB3190 : 60T064 
0 

200 IFT=0THENPT=PT+l:C0L0UR15:PRINT"WE ARE AT ";A$(PT) 

210 W=INT(RND(0)4r2) 

220 IFINT (FD/ (FEED^MN) )<1THEN280 

230 IFT>0THENPRINT:PRINTTAB(RND(0)*4) ; "STORES HOLD FOOD FOR " INT (FD/ (FEED*M 
N) ) "WEEKS" 


240 IFT>0ANDW=1THENPRINT:PRINTTAB(RND(0)*S) 5 ”WE ARE SAILING. G0T0460 
250 IFT>0ANDW=0THENPRINT:PRINTTAE(RND(0)*8) ; "OUR VOYAGE CONTINUES. GOTO 
460 

260 IFMN< 10THENPRIN'T"Y0UR CREW IS TOC SMALL PRINT : PRINT " TO SAIL THE VICTOR 
I A, SO WE MUST STAY HERE":PRINTTAB(8) ; "IN " A$ (PRT) : ; G0T0640 
270 IFFD>1THEN340 

2S0 PR1NT:C0L0UR7:PRINTTAB(5) J "YOU HAVE RUN OUT OF FOOD. . . ! " : G0SUE3190 
290 PRINT: PR I NTT AB (5) 5 "ALL OF YOUR MEN HAVE DIED...." 

300 PR1NT:PRINTTAB(5) ; "YOU ARE DYING TOO..." 

310 G0SUB3190 

320 PRINT:C0L0UR4:PRINTTAB(5) ; "A PITY... IT’S ALL OVER...." 

320 PR1NT:PR1NTTAB(5) ; "THERE IS SO MUCH ON BOARD" : PRINT ; G0T0640 
340 PRINT: PRINT"THE TREASURY HOLDS "CASH" DUELOONS" 

350 PRINT: PRINT"THE GALLEY HOLDS "FD" SACKS" 

360 PRINT:PRINT"0F food, enough FOR " INT (FD/ (FEED^MN) ) " WEEKS" 

370 PRINT: PRINT "ENTER i TO INSPECT THE HOLD" 

390 PR I NT: PR I NT" 2 TO TRADE WITH THE NATIVES" 

390 PRINT: PRINT" 3 TO SET SAIL FOR OUR NEXT PORT" 

400 B$= INKEYS 

405 IFBS=" "THEN400 

420 IFBS="1"THENG0SUB740 

430 IFES="2"THENGGSUE940: GOTOSiO 

435 CLS 

450 INCIDENTS 

460 RN=INT(RND(0)*21) 

•^70 IFRN=lTHENSY=SY+l: IFSY=3THENRM=2ELSEG0SUE2130 
480 IFRN=2THENSW=SW41 : IFSW=2THENRM=3ELSEG0SUE2230 
4?0 IFRN=3THENMUTINY=MUTINY+1 : IFMUTINY=2THENRN=4ELSEGDSUE2420 
'-"00 TFRN=4THENFIRATES=FIRATES+1 : IFF IRATES=3THEN460ELSEGGSUE2600 

•fio fori=^ito3oo:ne>:ti 

'f'O GC'TDSO 
580 

‘‘■0 ’PORT OF SPAIN 
■?0 irFT= >8THEN61 0: ’ END 


ftO FRIN'T:FRIKT"WE SAILEL FRCr! SPAIN’' 

570 RRIN’T: FRINT”WITH A CREW OF "MN’ HEARTY MEN” 

5‘’5 PRINT; FF: If'"” — 

5E0 GC'SUrSlPO 
5°0 CLS: print: PRINT 
600 T=0:GC'TC200 
610 ’-^ENr VOYAGE*^ 

620 -PRINT "WELL DONE , CAPTAIN" 

630. PRJNT:PRINT"YDU MADE IT BACK TO SPAIN" 

6^10 PRINTrPRINT"YDU ENDED THE VOYAGE WITH:" 

650 PRINT:PRINTCASH" DUBLOONS" 

655--PRINT: PRINTASTRO" ASTROLABES" 

660 PRINT: PR I NTS ALT" SACKS OF .SALT" 

665 PRINT; PRINTGUNPGWDER” BARRELS OF GUNPOWDER" 

670 PRINT: PRINTOUADRANTS” QUADRANTS" 

690 PRINT:PRINT"Y0UR SCORE IS " INT ( (E0LT+2*ASTR0 + £ALT + 2*IRN+3*GUNP0WDER+-7*rQ. 
UADRANTS ) * ( WEEK*MN+CASH ) /62 ) 

700 PR I NT: PR I NT "THE VOYAGE LASTED "WEEK" WEEKS" 

701 C0L0UR5:PRINT:PRINT"FRE£S return when READY" 

710 IFINKEY$=" "THEN710 

720 CLS: END 
730 ’■):****** 

7A0 CLS: ’INSPECT HOLD 
750 LT=0 

755 PRINT" IN THE HOLD YOU SEE;";PRINT 

760 COLOUR12:PRINTTAB{8) 5 " LOOT " ; TAB ( 30 ) ; "VALUE"; 

765 PRINT 

770 IFB0LT>0THENPRINT:PRINTTAB(2) ;BOLT"BOLTS OF CLOTH" ;TAE(25); EDLT*BCASH: 
" DUBLOONS" :LT=LT+B0LT*BCASH 

790 IFASTR0>0THENPRINT:PRINTTAE(2) ; ASTRO" ASTROLABES TAB ( 25 ) ; ASTRO^ACASH” 
DUBLOONS" : LT=LT+ASTR0*ACASH 

790 IFSALT>0THENPRINT:PRINTTAB(2) jSALT" SACKS OF SALT " ; TAB < 25 ) ; SALT*SSCSH" 
DUBLOONS" :lt=lt+salt*sscsh 

SOO IFIRN>0THENPRINT;PRINTTAB(2) ; IRN" IRON INGOTS "; TAB (25 ); IRN*ICASH" DUELQ 



ONS" : LT=LT+ IRN*ICASH 

810 IFGUNP0WDER>0THENPRINT:PRINTTAE(2) JGUNPOWDER" BLS OF G/POWDER ; TAB (251 J 
GUNPOWDER*GCASH” DUBLOONS" : LT=LT+GUNPOWDER*GCASH 

820 IF0UADRANTS>OTHENPRINT:PRINTTAB(2) ; QUADRANTS” QUADRANTS TAB ( 25 ) ySUADRA 
NTS^QCASH” DUBLOONS" : LT=LT+QUADRANTS*QC ASH 

830 CDL0UR15:PRINT:PRINT”T0TAL VALUE OF LOOT IS ”LT” DUBLOONS" 

840 PRINT: COLOUR?: PRINT"PRESS 1 TO TRADE WITH NATIVES” 

850 print: PR I NT "OR 2 TO RETURN TO THE VOYAGE" 

870 E$= INKEYS 

875 I FBS= " " THEN870 

890 I FBS= " 1 " THENBS= " 2 ” : RETURN 

900 1FES="2"THENB$="3" : RETURN 

910 RETURN 

920 END 

930 REN*^**** 

940 REM TRADE 

960 CLS:COLOURe:PRINT"CAPTAIN-CHODSE WHAT GOODS TO SELL " : C0L0UR15 
970 PRINT:PRINT"PRESS A KEY " : CALL0049 

976 PRINT" ": PRINT 

c'30 IFB0LT>0THENPRINT"1. -BOLTS OF CLOTH 'ECASH" EACH": PRINT 

9=0 IFASTR0>0THENPRINT"2. -ASTROLABES "ACASH’' EACH" : PRINT 

1000 IFSALT>0THENPRINT"3. -SACKS OF SALT "SSCSH" EACH":PRINT 

1010 IFIRN>0THENPRINT"4. -IRON INGOTS "ICASH" EACH":PRINT 

1020 IFGUNP0WDER>0THENFRINT"5. -BARRELS OF GUNPOWDER "GCASH"EACH" : PRINT' 

1030 IFQLIADRANTS>0THENPRINT"6. -QUADRANTS "QCASH" EACH" : PRINT 

1040 PRINT"?. -TO BUY FROM NATIVES ": PRINT 
1050 PR I NT "8. -TO RETURN TO VOYAGE" : PRINT 

1060 PRINT" " 

1070 AS= INKEYS 
1075 IFAS=^""‘!'HENiC70 
1090 IFAS=''8"THEN40 
1100 IFAS="1 "THEN! 200 
1110 IFAS="2"THEN1310 
1120 TFAS="3"THEN1420 


1130 lFAft=''*;’'TKEM1530 
1140 IEA*=’T"THEN16A0 
1150 1FA9;=’'6”THEN1750 
1160 IFAe="7"THENie60 
1170 GOTO 1070 
1190 G0SLIP3190 
1190 RETURN 
1200 ’SELL CLOTH 
1210 IFB0LT<1THEN1180 

1220 C0L0UR1:PRINT”WE have ''EOLT" bolts WORTH "BCASH'' DUBLOONS EACH" 

1230 PRICE=INT(BCASH*RND<0) ) +INT (BCASH*RND (0) ) : IFPRICE<BCASH/2THEN1230 
1240 PR I NT .’PRINT "THE NATIVES ARE OFFERING "PRICE" PER BOLT" 

1250 PR I NT: PR I NT "HOW MANY DO YOU WANT TO SELL?" 

1260 INPUTK 

1270 IFK>B0LTTHEN1260 

1280 CASH=CASH+K*PRICE 

1290 BOLT=BOLT-K 

1300 G0T0960 

1310 ’SELL ASTROLABES 

1320 IFASTRO< 1THEN1180 

1330 PRINT"WE HAVE " ASTRO " ASTROLABES WORTH "ACASH" DUBLOONS EACH" 

1340 PRICE=INT (ACASH*RND(0) ) +INT ( ACASH*RND (0) ) : IFPRICE< ACASH/2THEN1340 
1350 PRINT: PRINT"THE NATIVES ARE OFFERING "PRICE" EACH" 

1360 PRINT:PRINTTAE(8) ; "HOW MANY DO YOU WANT TO SELL" 

1370 INPUTK 

1380 IFK>ASTR0THEN1370 
1390 CASH=CASH+K*PRICE 
1400 ASTRO=ASTRO-K 
1410 G0T0960 
1420 ’SELL SALT 
1430 IFSALT<1THEN1180 

1440 PRINT"WE HAVE "SALT" SACKS OF SALT WORTH "SSCSH" DUBLOONS PER SACK" 
1450 PRICE=INT(SSCSH*RND(0) ) + INT ( SSCSH^^RND ( 0 ) ) : IFPRICE<SSCSH/2THEN1450 
1460 PRINT: PRINT"THE LOCALS’ BEST OFFER IS "PRICE" EACH" 


1-470 PR I NT: PR I NT "HOW MANY DO YOU WANT TO SELL?" 

1480 INPUTK 

1490 IFK>SALT THEN1480 
1500 CASH=CA£H+K*PRICE 
1510 SALT=SALT-K 
1520 00TO950 
1530 ’SELL IRON 
1540 IFIRN<1THEN1180 

1550 PRINT"WE HAVE "IRN” INGOTS OF IRON WORTH "ICASH” EACH" 

1560 PRICE=INT(ICASH*RND<0) ) 4lNT ( ICASH*RND (0) ) : IFPRICE< ICASH/2THEN1560 
1570 PRINT: PRINT"THE BEST OFFER FOR OUR IRON IS "PRICE" EACH" 

1580 PRINT:PRINTTAB(8) ; "HOW MANY DO YOU WANT TO SELL?" 

1590 INPUTK 

1600 IFK>IRMTHEN1590 

1610 CASH=CASH*K*PRICE 

1620 IRN=IRN-K 

1630 GOT0960 

1640 ’SELL GUNPOWDER 

1650 IFGUNP0WDER<1THEN11S0 

1660 PR I NT "WE HAVE "GUNPOWDER" BARRELS OF GUNPOWDER WORTH "GCASH" EACH" 
1670 PRICE=INT (GCASH*RND (0) ) + INT ( GC ASH*RND ( 0 ) ) : IFFRICE<GCA£H/2THEN1670 
1680 PR I NT: PR I NT "THE OFFER IS "PRICE" EACH" 

1690 PR I NT: PR I NT "HOW MANY DO YOU WANT TO SELL?" 

1700 INPUTK 

1710 I FK >GUNPOWDERTHEN 1 700 

1720 CASH=CASH4K*PRICE 

.1 “’SO GUNPOWDER=GUNPOWDER-K 

1740 GOT0960 

1'’50 ’SELL QUADRANTS 

1 “60 IFOUADRANTS< ITHENllSO 

17-^0 PRINT"WE HAVE "QUADRANTS" QUADRANTS WORTH "QCASH" DUELOONS EACH" 
f^eO PRICE=INT (QCASH*RND (0) ) + INT ( QCASH*RND ( 0 ) ) : IFFRICE< QCASH/ 2THEN1 780 
-'“90 PR I NT: PR I NT "THEY ARE OFFERING "PRICE” EACH" 

00 PRINT: PRINT "HOW MANY DO YOU WANT TO SELL?" 


leio iNPUTf: 

1 920 I FK >G'UADRAKT£ THEM 1910 
1990 CASH=CA9H-''-)fPRICE 
19A0 GUAItF AMTS = rUADP ANTS -K 
1950 9DTD960 
1960 ’FUV FROM NATIVES 

1990 PRINT" " 

1990 PRINT: CDL0UR8: PRINTTAE (2) ; " >> YOU HAVE "CASH” DUBLOONS <<";PRINT 
1900 PR I NT "THE NATIVES ARE OFFERING” 

1910 EITE=9+INT <RND (0)*7) 

1920 PRINT: PRINT" 1 . -FOOD AT "BITE” DUBLOONS PER SACK" 

1930 AXCREW=30-HNT (RND (0)*9) 

19A0 PRINT:PRINTTAB(4) ; ”2. -AUX'ILLIARY CREW AT "AXCREW" EACH" 

1950 PRINT; PRINTTAE (4 ); ”3. -RETURN TO VOYAGE ": COLOURiS 

1960 B$= INKEYS 

1965 IFBS=” "THEN1960 

1980 PRINTrPRINT” « 

1990 IFE$="3"THEN1 190 
2000 IFES=”2"THEN2070 

2010 PRINT: PRINT"HOW MUCH FOOD DO YOU WANT?"; 

2020 INPUTK 

2030 IFK*EITE>CASHTHENPRINT”YOU DO NOT HAVE THAT KIND OF MONEY !!": G0T02020 
2040 FD=FD+K:CASH=CASH- (BITE*K) 

2050 PRINT: PRINT" >> TRANSACTION COMPLETE < < " : G0SUE3190: G0T01890 
2060 GOT01900 

2070 PR I NT "HOW MANY AUX. CREW DO YOU WANT” 

2080 INPUTK 

2090 IFK*AXCREW>CASHTHENPRINT"THAT IS BEYOND YOUR FINANCES "; G0T02080 
2100 MN=MN+K:CASH=CASH-AXCREW*K 

2110 PRINT;PRINT"THEY’RE NOW PART OF YOUR CREW” ; G0SUB3190: G0T01880 
2120 ’******^!-* 

2130 ’DEATH FROM SCURVY 

2140 print; PRINT"DUE TO LACK OF FRESH FOOD" : PRINT: C0L0UR7: PRINT "SCURVY HAS 
HIT YOUR SHIP. . . " 



2160 G0SUB3190 

2170 K=MN/3:K=1NT <RND(0)*K + 1) 

21S0 PRINT: PRINTK" MEN HAVE DIED" 

2190 G0SUB3190 
2200 MN=MN-K 
2210 RETURN 
2220 ’**•)!■**** 

2230 ’SHIPWRECK 

2240 C0L0UR15;PRINT:PRINT"Y0UR ship is FOUNDERING IN HEAVY PRINT ; PRINT " SEA 

S YOU ARE IN GRAVE PERU " 

2260 G0SUB3190 

2270 IFRND(O) >.8THEN2370 

2280 PRINT:PRINT"THE storm IS PASSING...." 

2290 PRINT:FRINT"BUT-S0ME OF YOUR GOODS AND ": PR INT : PRINT " MEN WERE SWEPT OV 
ERBOARD. ..." 

2300 NN=3*INT (MN/4) : B0LT=5*INT (BOLT/6) 

2320 ASTR0=7*INT (ASTRO/8) : SALT=3*INT ( SALT/4 ) 

2330 IRN=4*IN^ ( IRN/5) : GLINP0WDER=5*INT (GUNPOWDER/6) ; QUADRANTS«7*INT (QUADRANT 
S / = ) 

2350 GDSUB3190 
2360 RETURN 

2370 PRINT: PR I NT "A GREAT WAVE SWAMPS YOUR SHIP" 

2380 PRINT:PR1NT"AND IT SINKS i!i" 

2390 G0SUB3190 
2400 G0T0700 
2410 ’***^** 

2420 ’MUTINY 

2430 C0L0UR8:PRINT:PRINT"THE men are unhappy with YOUR" :PRINT:PRINT"LEADERS 
hip.m-there is talk of mutiny.!!" 

2460 G0SUB3190 

2470 IPRND (0) >. 8THEN2540 

:-.480 PRINT: PRINT"BUT YOU TAKE CONTROL-HANG TWO CREW" : PRINT: PRINT ' AND CONTIN 
UE ON THE VOYAGE" 

2520 G0SUB3190 


25' 0 F. ETU'^!'.' 

25£0 €'510700 
2590 ’*->'V*** 

2c 00 ’F- rates 

2610 CDLDUR5:PRINT:PRINT’’PIRATE SHIP-SIGHTED! ! !" 

2620 GDSUB3190 

26A0 PR I NT: PR I NT "IT COMES ALONGSIDE" 

2650 G0SUF3190 
2660 T=INT (RND (O-K-S) 

2670 IFT=0THEN27A0 
2630 IFT=1THEN2820 

2690 PRINT: PRINT "YOU OFFER TO BUY YOUR FREEDOM" 

2700 PRINT: PRINT"THEY AGREE... TAKE YOUR DUBLOONS PRINT : PRINT " AND YOUR GUNP 
OWDER " 

2715 FDRI=1T0500:NEXT 
2720 CASH=0:GUNP0WDER=0 
2730 RETURN 

2740 C0L0UR15: PRINT: PRINT'’THE PIRATES BOARD YOUR SHIP PRINT : PRINT " KILL 
ING MANY MEN" 

2760 K=INT (RND (0)*MN+MN/3) 

2770 G0SUB319O 

2780 COLOURS: PRINT: PR I NTK" MEN HAVE BEEN KILLED" 

2790 MN=MN-K 
2800 G0SUE3i90 
2810 RETURN 

2820 PR I NT: PR I NT "YOU ’RE IN LUCK.... THEY HAVE" : PRINT: PR I NT "RUN AGROUND.!!!" 
2840 G0SUE3190 
2850 RETURN 
2860 ’******* 

2870 ’INITIALISE 
2880 CLS 
2890 RANDOM 
2900 DIMA$(9) 

2910 MN=100+1MT (RND (0)*30) 


2920 CASH=200+INT(RND(0)*50) 

2920 FD=100+INT(RND(0)*30) 

2940 FEED=. 02+INT (RND (0) *10) /I 00 
2950 I FED / ( FEED*MN ) > 1 1 THEN29 1 0 
2960 B0LT=100+INT(RND(0)*30) : ’No OF BOLTS 
2970 BCASH=5+INT (RND (0)*5) : ’VALUE PER BOLT OF CLOTH 
2980 ASTR0=15+INT(RND(0)*5) : ’NO OF ASTROLOBES 
2990 ACASH=20+INT (RND (0)*5) : ’ VAL OF EACH ASTRO 
3000 SALT=50+INT(RND(0)*7) : ’NO OF SACKS OF SALT 
3010 SSCSH=INT (RND (4) ) +7 

3020 IRN=30+INT (RND(0)*8) : ’NO OF IRON INGOTS 

3030 ICASH=5+INT(RND(0)*3) : ’VAL PER INGOT 

3040 GUNP0WDER=3+INT (RND (0)*2) : ’No OF BARRELS OF 9 /P 

3050 GCASH=90+INT(RND(0)*20) : ’ VAL PER BARREL 

3060 (3UADRANTS=10+INT (RND(0)*4) 

3070 QCASH=30+INT(RND(0)*6) 

3080 WEEK=0 
3090 PT=1 
3100 8Y=0 
3110 SW=0 
3120 MUTINY=0 
2130 PIRATES=0 
3140 F0RJ=1T07 
2150 READA$(J) 

3160 NEXTJ 
3170 RETURN 
2180 ’***** 

2190 ’DELAY 

3200 ’USER ADJUST DELAY 
2210 F0RP=1T01200:NEXTP 
'•220 RETURN 
3230 ’******* 

■250 DATA''THE CANARY ISLANDS” , "THE CAPE VERDE I SLANDS ” , ” C APE ST. AUGUSTINE 
^THE BAHAMAS” 

'60 DATA” JAMAICA” , "TRINIDAD” , " 


FIJI 


10 CLfrFCLS 
50 PI=?. 1416 

90 C0L0UR15:PRINT"GRAPHIC£ UNLIMITED" 

95 PRINT 

96 PRINT:C0L0UR2:PRlNT"Adapted by Ron Hart Aug 84 PRINT : C0L0UR15 

100 PRINT-CHOOSE JUST ONE DESIGN" : PRINT: PRINT"OR UP TO 200... NO REPEATS" 
130 C0LDUR6:PRINT: INPUT"SERIES OF PATTERNS (S) OR SINGLES ( I ) " J 0$ 

170 1FG*="£"THEN290 

210 PRINT: INPUT "PICK A NUMBER (1T0360)";Y 
250 IFG!*="I"THEN370 

290 INPUT"H0W MANY PATTERNS ( 1T0200 )"} N 

330 N=180/N 

370 cls:fcls:fgr 

410 F0RY=50T0360STEPN 

450 FORJ=OT02300STEPY 

490 FC0L0UR(RND(3) +1) 

530 A=J/ (PI*24) 

570 B=S1N (A) *J/50 
610 C=C0S(A)*J/50 

650 PLOT80+B,48-CT080+C,48-B:PLOT80-E,4S+CT080-C,48+B 
690 PL0T80+B, 48+CT080+C , 48+B : PL0T80-B , 48-CT080-C , 48-E 
730 NEXT J : F0RK=1 TOl 000 ; NEXTK : FCLS 
770 IFQ$="I"THENe50 
810 NEXTY 

850 fcls:lgr:gotoio 


10 FCLS:F6R:FC0L0UR4:PI=3. 1459 
20 TH=0 
30 DT=PI/18 
40 XC=SO 
50 YC=50 

55 F0RF=1T052 

56 FCOLOUR ( INT (RND (3) +1 ) ) 

60 LETW=30 

70 LETX1=XC 
SO LETY1=YC 
90 LETDX=W 
100 LETDY=0 
110 60SUB500 
120 LETX1=X2 
130 LETY1=Y2 
140 DX=W 
150 DY=W 
160 G0SUB500 
2"’ LETX1=X2 
28 ■ LETY1=Y2 
2? LETDX=0 

30 LETDY=W 

31 ' GDSUE500 

32 LETX1=X2 
33'. LETY1 = Y2 
340 d:'-;=o 
350 DY=0 
360 G0SUB500 
3“i TH=TH+DT 
3« NEXTF 

4 >.; S0T0400 

5: • <2=KC + INT (DX*COS (TH) ) - 1 NT ( DY*SIN ( TH ) ) 

5 "S^YC+INT (DX*SIN(TH) ) +INT (DY*CO£(TH) ) 
5 \.0TX1 ,Y1T0X2,Y2 

52' OE-ruRN 


1 


************** 

* ALIEN * 

* ATTACK * 
♦cMURRAY JONES* 

* TAURANGA * 

* Ph. 82208 * 

^: ****:♦;:♦: ***:♦;*** 


2 RESTORE : GOSUB50 

3 0=18062 :W=17528;MEN=5:SC=0 

4 POKEQ, 133 :POKEW, 134 :PRINT®722, "Score" ; SC;PRINT®736 , "Hi Score" .:HI :PRINT@753, "Me 
n " MEN 

5 GOTO 11 

6 A=PEEK<-1984) 

7 IFAAND32THENPOKEQ,32 :Q=Q-1 : IFQ= 1 8053THENQ=Q+ 1 : POKEQ, 1 33 : POKEQ+&HACOO , 6 

8 IFAAND64THENPOKEQ, 32 : 0=0+1 : IFQ= 1 807 1 THENQ=Q- 1 :POKEQ, 1 33 : POKEQ+«.HACOO , 6 

9 IFAAND128THENM=Q-40 :PLAY( 1,6,8,15) :PLAY( 1 ,4,0,0) :GOSUB14 

1 0 POKEQ ,133: POKEQ+4..HACOO , 6 ; RETURN 

1 1 R=RND< 16) +4 :FORT=WTOW+R:POKET-l ,32 iPOKET, 1 34 : GOSUBl 8 : NEXT : POKET- 1 ,32 

1 2 FORC= 1 T02 : FORV= 1 T03 : POKET , 32 : T=T+4 1 : POKET ,134; GOSUB6 : NEXTV : FORY= 1 T03 : POKET , 32 
: T=T+39 : POKET ,134: G0SUB6 : NEXTY : NEXTC : POKET , 32 

13 MEN=MEN-1 : PRINT®753 , "Men " MEN : IFMEN=0THENGOTO23ELSEGOTOl 1 

1 4 POKEM , 32 : POKEQ ,133: POKEQ+&.HACOO , 6 : M=M-40 : POKEM ,131 

15 IFM=TTHEN22 

16 IFPEEK(M-40)=202THENPOKEM,32 :PLAY( 1 ,7,12,15) :PLAY( 1 ,7,0,0) : RETURN 

17 G0T014 

18 A=PEEK(-1984) 

19 IFAAND32THENP0KEQ,32:Q=Q-1 ; IFQ= 1 8053THENQ=Q+ 1 : POKEQ , 1 33 ; POKEQ+&HACOO , 6 

20 IFAAND64THENPOKEQ,32;Q=Q+l : IFQ= 1 807 1 THENQ=Q- 1 : POKEQ, 1 33 : POKEQ+4..HACOO , 6 

2 1 POKEQ ,133: POKEQ+S-.HACOO , 6 : RETURN 

22 PLAY( 1,3,1,15) :PLAY< 1 , 3,0,0) : SC=SC+ 1 0 : POKET , 32 : PRINT@722 , "Score " SC; GOTO 1 1 
2 3 FORQ= 1 T095 : R=RND < 4 ) : CHARR : FORW= 1 TO 1 0 ; NEXTW : NEXTQ : CHAR2 : CLS : FORT= 1 T0500 : NEXT : C 
0L0UR7 ; PR I NT®0 , " : PR I NT@680 , " ■■■■I 




COLOUR5 
v,OLOUR4 
COLOUR 1 
';OLOUR4 
> OLOUR5 


PRINT@91 , 
PRINT®131 , 
PRINT0171 , 
PRINT®21 1 , 
PRINT@251 , 


r 


2'? ! -3OHITHEN35ELSE30 

30 OOLOURl :PRINT@321 , "Your Scor e " : PR INT@35 1 , "H i Scor e " : PRINT@4 1 5 , "H i Scorer" ;COL 

OUR3 : ?RINT®361 , " " :PRINT@391 , " " :PRINT®455, " " : COLOU 

R 1 : r-'HTNT®402 , " " SC: PRINT@431 , " " ;HI ;PRINT®495 , " " •NMS 

31 GOLOURl : PR INT@561 , "PLEASE PRESS (A) KEY TO START PROGRAM" : COLOURS : PR I NT@60 I,"- 


32 I $ = INKEY$ : IFI t = " "G0T032 

33 n'T t = "A"THENG0T02ELSEG0T032 

34 CTO 3 4 

35 : ■ BC : COLOUR 1 : PR I NT®480 , " En t er Your Name") 

3c <L jUR3 ; PRINT@520 , " " 

5C >LOuRl 

?' :4^LEFT<( I>,9) 

40 <iNT®480," " : PRINT@520 , " " : PRINT®560 , " 


041 


41 


•.GOTO 30 


4 2 CLS : COLOUR 1 : PR I NT©680 


-OUR2 :FORT=3BTO63eSTEP40 : PRINT©?, "■ 


■" :NEXT:PRINT©67B 


:PRINT€'1 


" : CO 


43 COLOURS : PR INT©80, PRINT©! 21 , PRINT©! 60 , "■■■■ 

44 COLOURS : FORT= ! 64T0604STEP40 : PRINT©? ,CHR< ( ! 29 ) : NEXT : COLOUR4 : F0RT=243T0245 : PR IN 
r©r,CHR$ ( !32) : NEXT: COLOURS : PRINT©643, ''Jik." 

45 COLOURS : PR INT©663, "*■■■■" :F0RT=623T0629 :PRINT©T,CHR$ ( 129 ) : NEXT : F0RT*583T05 
39 : PRINT©?, CHR$ ( !29) ; NEXT : FORT=34STO38SSTEP40 : PRINT©? ,CHR$ ( !29) ; NEXT : FORT=425T05 
4SSTEP40 :PRINT©T,CHRi < 129) iPRINT©?-*-! ,CHR4 < 129) : NEXT 

46 COLOUR6 :FORT=228TOS08£TEP40: PRINT©?, CHR$ (202) : NEXT : PRINT©S47 , :PRINT©S90 
, "k." :PRINT©630 , "1^" :PRINT©670, "i■" : COLOUR9 : FORT= 1 B5T01 9 1 : PRINT©? , CHR$ (132) : NEXT 


:C0L0UR6:F0RT=!47T0149:PRlNT©T,CHRi( 129) : NEXT : COLOURl : PRINT©! 4S , CHRi ( 130) : PRINT© 
105,CHRi ( 131 ) - . 

47 COLOUR4 ;PRINT©672, "■■■" : FORT=432TO632STEP40 : PR INT©T , CHR$ ( 129) :PRINT©T+1 ,CHR 
i (129 ) :PRINT©T+2,CHR$ (129) : NEXT : PRINT©391 , "■i'' : PRINT©393 ,CHR$ (129) :PR1NT©394 , "■i 
'• : COLOURl 0 : FORT=3S0TO3S6 : PRINT©? , CHRi (132): NEXT 

4B COLOUR4 :FORT=31 1T031S : PRINT©?, CHRi (129) : NEXT : F0RT=272T0274 : PRINT©? , CHRi ( 129) ; 
MEXT :PRINT©233 ,CHRi ( 129) {COLOURl : PR I NT© 1 93 , CHRi ( 130) : PRINT©153 ,CHRi ( 131 ) 

49 RETURN 

50 F0RT=1T04B :READD: POKE- 306S+T,D: NEXT 

51 a0T054 


53 DATA255, 129,129,129,129,129, 1 29 , 2SS , 8 , B , B , B , 8 , 2B , 62 , 1 27 , B , 8 , B , 8 , B , 8 , B , B , 25S , 2 
55,2SS, 129, 129, 255, 255, 25S, 24, 24, 24, 24, 126, 129, 129, 126, 6S, 34, 36, 24, 102, 195,102,2 


4 

54 CL£:COLOUR9 :PRINT©0, ;PRINT©680 


II i^nmiiiiiiiiim 

55 COLOURS 

56 COLOUR4 

57 COLOURl 

58 COLOUR4 

59 COLOURS 
iO COLOURS 
bl COLOUR4 
b2 COLOURl 

63 COLOUR 4 

64 COLOURS 

65 GOSUB69 


PRINT©88, 

PRINT©12B, 

PRINT©168, 

PRINT©208, 

PRINT©248, 

PRINT©326, 

PRINT©366, 

PRINT©406, 

PRINT©446, 

PRINT©486, 



66 COLOURl : PR I NT©561 , "PLEASE PRESS ANY KEY TO START PROGRAM" : COLOURS : PR I NT©60 1 , " 


67 Ii=INKEYi : IFIi=""G0T067 
6B G0T042 

69 FORT=lT014 : READD :FORR= 1T04 5: PLAY ( 1 ,4,D, 15) : NEXTR : NEXT? : PLAY ( 1 ,4,0,0) ;PLAY(2,4 
,0,0); PLAY ( 3 , 4 , 0 , 0 ) 

70 RETURN 

7 1 ' )ATA7 ,6, 7, 6, 7, 6, 7, 6, 5, 6, 5, 4, 3,0 


DISC DRIVE L^TERFACE 


We have been in contact with the West German maker of the COLOUR GENIE disc drive 
interface. These units can now be ordered thru the club at a cost of $320 each. This price 
includes 1 INTERFACE + CABL^E 
1 USER MANUAL 
1 SAMPLE DISC 

This price also includes all frieght & mail costs + customs duty Sc sales tax 
The first order is due to be sent off on 24 March 1986 . Delivery is 4-6 weeks. 

No further orders will be sent until the first has been received and distributed. 

If youwant to be one of the first to go disc then read the conditions below and send your order 
to:- C.R. BISHOP 

6 JENANNE PLACE ; 

GLENFIELD 

AUCK * 

Orders must arrive by 17 March j 

GENERAL CONDITIONS 

1. PAYMENT IS TO BE IN FULL BY BANK CHEQUE or^ MONEY ORDER ( Personal 

cheques to arrive by 10 March to allow for clearance ) 

2. The club nor any committee member nor general member shall be held liable for any 
loss of money or non arrival of any goods related to this order. 

3. The club will act for you should any dispute arise between you and the supplier. 


The first two conditions are the same as they would be if you were ordering anything 
by mail order yourself. 




ORDER FORM 


Return only this portion with your order 


I WISH TO ORDER UNIT/S AND ENCLOSE $ AS FULL PAYMENT. 


NAME: 

ADDRESS: 

I AGREE TO THE TERMS AND 
CONDITIONS 

SIGNED 


Jheques made payable to; AUCKLAND COLOUR GENIE USER GROUP 


